home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 131 / XENIATGM131.iso / Shareware / openOffice.org 641 / Windows / f_0030 / Language.xba < prev    next >
Extensible Markup Language  |  2001-11-22  |  4KB  |  95 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
  3. <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
  4.  
  5.  
  6. Public Const cLANGUAGE_SYSTEM = "", cLANGUAGE_CHINESE = "zh", cLANGUAGE_DANISH = "da"
  7. Public Const cLANGUAGE_DUTCH = "nl", cLANGUAGE_ENGLISH = "en", cLANGUAGE_FINNISH = "fi"
  8. Public Const cLANGUAGE_FRENCH = "fr", cLANGUAGE_GERMAN = "de", cLANGUAGE_GREEK = "el"
  9. Public Const cLANGUAGE_ITALIAN = "it", cLANGUAGE_JAPANESE = "ja", cLANGUAGE_NORWEGIAN = "no"
  10. Public Const cLANGUAGE_POLISH = "pl", cLANGUAGE_PORTUGUESE = "pt", cLANGUAGE_RUSSIAN = "ru"
  11. Public Const cLANGUAGE_SPANISH = "es", cLANGUAGE_SWEDISH = "sv", cLANGUAGE_TURKISH = "tr"
  12.  
  13. Public BLNameList(0 To 16) as String
  14.  
  15.  
  16. ' R e s o u r c e   s t r i n g   c o n s t a n t s
  17. ' -------------------------------------------------
  18. ' Dialog labels start at 1000
  19.  
  20. Sub LoadLanguage%(ByVal LangLocale)
  21. Dim Dummy$
  22. Dim i as Integer
  23. Const dlgMonth = 1200
  24. ' Abreviated months start 1225
  25. Const dlgShortMonth = 1225
  26.     DlgCalendar.GetControl("lblHolidays").Visible = LangLocale  = cLANGUAGE_GERMAN
  27.     DlgCalendar.GetControl("lstHolidays").Visible = LangLocale  = cLANGUAGE_GERMAN
  28.  
  29.     If InitResources("schedule", "cal") Then
  30.         If LangLocale  = cLANGUAGE_GERMAN Then
  31.  
  32.             ' Load all states
  33.             BLNameList(0) = GetResText(1100)
  34.             BLNameList(1) = "Bayern"
  35.             BLNameList(2) = "Baden-W├╝rttemberg"
  36.             BLNameList(3) = "Berlin"
  37.             BLNameList(4) = "Bremen"
  38.             BLNameList(5) = "Brandenburg"
  39.             BLNameList(6) = "Hamburg"
  40.             BLNameList(7) = "Hessen"
  41.             BLNameList(8) = "Mecklenburg-Vorpommern"
  42.             BLNameList(9) = "Niedersachsen"
  43.             BLNameList(10) = "Nordrhein-Westfalen"
  44.             BLNameList(11) = "Rheinland-Pfalz"
  45.             BLNameList(12) = "Saarland"
  46.             BLNameList(13) = "Sachsen"
  47.             BLNameList(14) = "Sachsen-Anhalt"
  48.             BLNameList(15) = "Schleswig Holstein"
  49.             BLNameList(16) = "Th├╝ringen"
  50.  
  51.             DlgCalModel.lstHolidays.StringItemList() = BLNameList()
  52.         End If
  53.         sWizardTitle$ = GetResText(1300)
  54.         sError$ = GetResText(1301)
  55.         cCalSubcmdDeleteSelect_DeleteSelEntryTitle$ = GetResText(1302)
  56.         cCalSubcmdDeleteSelect_DeleteSelEntry$ = GetResText(1303)
  57.         DlgCalendar.Title = GetResText(1000)
  58.  
  59.         With DlgCalModel
  60.             cCalSubcmdSwitchOwnDataOrGeneral_OwnData$ = GetResText(1002)
  61.             cCalSubcmdSwitchOwnDataOrGeneral_Back$ = GetResText(1001)
  62.             .hlnTime.Label = GetResText(1011)
  63.             .lblYear.Label = GetResText(1012)
  64.             .cmdCancel.Label = GetResText(1005)
  65.             .cmdGoOn.Label = GetResText(1004)
  66.             .lblHolidays.Label = GetResText(1014)
  67.             sBitmapFilename$ = GetResText(1099)
  68.             DlgCalModel.hlnCalendar.Label = GetResText(1006)
  69.             .optYear.Label = GetResText(1007)
  70.             .optMonth.Label = GetResText(1008)
  71.             .lblMonth.Label = GetResText(1013)
  72.             .cmdOwnData.Label = GetResText(1015)
  73.             .hlnNewEvent.Label = GetResText(1019)
  74.             .lblEvent.Label = GetResText(1019)
  75.             .lblEventDay.Label = GetResText(1021)
  76.             .lblEventMonth.Label = GetResText(1022)
  77.             .lblEventYear.Label = GetResText(1023)
  78.             .chkEventOnce.Label = GetResText(1020)
  79.             .cmdInsert.Label = GetResText(1016)
  80.             .cmdDelete.Label = GetResText(1017)
  81.             ' Load long month names
  82.             For i = 0 To 11
  83.                 cCalLongMonthNames(i) = GetResText(dlgMonth+i)
  84.                 cCalShortMonthNames(i)= Left$(cCalLongMonthNames(i), 3)
  85.             Next
  86.             ' Load sheet names
  87.             sCalendarTitle$ = GetResText(1410)
  88.             sMonthTitle$ = GetResText(1411)
  89.             ' Load names of styles
  90.             cCalStyleWorkday$ = GetResText(1400)
  91.             cCalStyleWeekend$ = GetResText(1401)
  92.         End With
  93.     End If
  94. End Sub
  95. </script:module>